home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
tools
/
packer
/
ccb
/
dldiz
/
dopus
/
dldlistgenerator.dopus
Wrap
Text File
|
1996-02-26
|
1KB
|
39 lines
/*
DLDiz listgenerator frontend for DirectoryOpus
Made in 1995 by Morten K. Andersen (2:238/28.12@FidoNet)
*/
OPTIONS RESULTS
'status 7 -1'
numselected=result
IF numselected=0 THEN EXIT
IF ~SHOW('L','rexxreqtools.library')
THEN CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
PARSE ARG listname
IF listname=''
THEN listname=rtfilerequest(,,'Name of file to add to/generate:',,'rt_pubscrname='ADDRESS() 'rt_reqpos=reqpos_centerwin' 'rtfi_flags=0')
IF listname='' THEN EXIT
IF rtresult=0 THEN EXIT
method=rtezrequest('Select type of list to generate','_DayDream|_AmiExpress|_Normal|_Cancel',,'rt_reqpos=reqpos_centerwin rt_pubscrname='ADDRESS())
SELECT
WHEN method=1 THEN method=D
WHEN method=2 THEN method=A
WHEN method=3 THEN method=N
WHEN rtresult=0 THEN EXIT
END
'status 13 -1'
PRAGMA('D',result)
DO i=1 TO numselected
'getnextselected -1'
filename=result
ADDRESS COMMAND 'C:DLDiz NAME='filename 'LN="'listname'" LT='method 'Q F'
'selectfile' '"'filename'"' '0'
END
'rescan'